home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / KEY10.ZIP / KEYGEN.CLA < prev    next >
Encoding:
Text File  |  1994-04-21  |  1.5 KB  |  44 lines
  1.                  program
  2.  
  3. EscKey           equate( 256 )
  4.  
  5.                  map
  6.                    module( 'KEY.LIB' )
  7.                      Calculate( *string, <long>, <long> ), long
  8.                  . .
  9.  
  10. Name             string( 80 )
  11. Date             long
  12.  
  13. SCREEN           SCREEN(11,44),CENTER,FADE,COLOR(113)
  14.                    ROW(1,1)    STRING('┌─{42}'),COLOR(127)
  15.                      COL(44)   STRING('┐'),COLOR(112)
  16.                    ROW(2,8)    STRING('Key Generating Sample Program'),COLOR(127)
  17.                    ROW(3,11)   STRING('VISION Technologies Inc.'),COLOR(127)
  18.                    ROW(9,6)    STRING('Key:')
  19.                    ROW(11,1)   STRING('└'),COLOR(127)
  20.                      COL(2)    STRING('─{42}┘'),COLOR(112)
  21.                                REPEAT(9)
  22.                    ROW(2,1)      STRING('│'),COLOR(127)
  23.                    ROW(2,44)     STRING('│'),COLOR(112)
  24.                                .
  25.                    ROW(5,5)    PROMPT('&Name:'),COLOR(113,116,120,127,127)
  26.                      COL(11)   ENTRY(@s30),USE(Name),ALRT(EscKey),LFT,COLOR(126,112,120)
  27.                    ROW(7,5)    PROMPT('&Date:'),COLOR(113,116,120,127,127)
  28.                      COL(11)   ENTRY(@d1),USE(Date),IMM,OVR,COLOR(126,112,120)
  29. Key                ROW(9,11)   STRING(@p######p),COLOR(127)
  30.                  .
  31.  
  32.  
  33.   code
  34.   setcolor( 7 ); blank; setcolor; setcursor
  35.   open( Screen )
  36.   loop
  37.     accept
  38.     if keycode() = EscKey then return.
  39.     if field() = ?Date
  40.       Key = Calculate( Name, Date )
  41.       select( ?Name )
  42.   . .
  43.  
  44.